0 IFA=0THENA=1:LOAD"PBN.GRFX",8,1
1 IFA=1THENA=2:LOAD"PBN.LVLS",8,1
2 A=0:POKE52,128:POKE56,128:CLR:GOSUB112:POKE53271,.:POKE53276,1:POKE53277,.
4 POKE33784,178:PRINT"[154][147]"TAB(9)"[176][192][201]":PRINTTAB(9)"[221] [221][213][192][201][213][178][192][213][201][213][192][178][192] [176][192][201][201] [201]"
6 PRINTTAB(9)"[171][192][203][171][192][179] [221] [221][221][221] [221]  [171][192][179][202][178][203]":PRINTTAB(9)"[203]  [203] [202][192][203][192][203][202][203] [203]  [173][192][203] [203]"
8 PRINTTAB(9)"[213][201][213][192]":PRINTTAB(9)"[221][221][221] [201] [201][213][201][213][201][176][192][201][213][192][201][176][192][201]  "
10 PRINTTAB(9)"[221][221][221] [221] [221][221][202][203][221][171][192][179][171][192] [171][178][203][213][201]"
12 PRINTTAB(9)"[203][202][203] [202][192][203][203]  [202][177][192][203][202][192][192][189][202][192][219][203]":PRINTTAB(29)"[202]"
14 PRINTTAB(13)"BY JON MATTSON":PRINTTAB(11)"C[146] CONSTRUCTION SET"
16 PRINTTAB(11)"[129]G[146] PLAY GAME":PRINTTAB(11)"[158]S[146] ALTER GAME SPEED"
18 PRINTTAB(11)"L[146] LOAD NEW LEVELS":PRINTTAB(11)"[154]H[146] SEE HIGH SCORES"
20 PRINTTAB(11)"[152]Q[146] QUIT":POKE53285,.:POKE53286,1
22 GETA$:IFA$=""THEN28
24 J=.:FORI=1TO6:IFA$=MID$("CGSLHQ",I,1)THENJ=I
26 NEXT:IFJ>.THENPOKE53269,.:ONJGOTO30,48,34,32,74,86
28 SYSC:FORI=1TO15:NEXT:GOTO22
30 SYSM:GOTO4
32 SYSL:GOTO4
34 PRINT"[147]"TAB(12)"[159]NEW GAME SPEED:":PRINTTAB(14)"L[146]IGHTNING"
36 PRINTTAB(14)"[129]F[146]AST":PRINTTAB(14)"[158]N[146]ORMAL":PRINTTAB(14)"S[146]LOW"
38 PRINTTAB(14)"[154]V[146]ERY SLOW":POKE198,.
40 GETA$:IFA$=""THEN40
42 J=.:FORI=1TO5:IFA$=MID$("LFNSV",I,1)THENJ=I
44 NEXT:IFJ=.THEN40
46 POKESP,J*20:GOTO4
48 SYSG:PRINT:S=PEEK(SC)+256*PEEK(SC+1):IFS<S(19)THENFORI=1TO1500:NEXT:GOTO74
50 PRINT"[150]  A NEW HIGH SCORE!":POKE54277,3:POKE54278,.:FORI=1TO9:POKE54273,I*9
52 POKE54276,17:POKE54276,16:FORJ=1TO20:NEXTJ,I:J=19:FORI=19TO.STEP-1
54 IFS>S(I)THENJ=I
56 NEXT:IFJ=19THEN60
58 FORI=19TOJ+1STEP-1:S(I)=S(I-1):N$(I)=N$(I-1):NEXT
60 S(J)=S:N$(J)=""
62 PRINT"[159]  YOUR NAME PLEASE: [152]...............[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:I=.:S=5
64 PRINTCHR$(S)".[157]";:S=157-S:GETA$:IFA$=""THEN64
66 IFA$=CHR$(20)ANDI>.THENPRINT"[152].[157][157]";:I=I-1:N$(J)=LEFT$(N$(J),I):GOTO64
68 IFA$=CHR$(13)ANDI>.THEN74
70 IFI=14OR(A$<"-"ANDA$<>" ")OR(A$>"9"ANDA$<"A")ORA$>"_"THEN64
72 PRINTA$;:N$(J)=N$(J)+A$:I=I+1:GOTO64
74 PRINT"[147]"TAB(10)"*[158]*[150]*[129]  [156]T[154]O[159]P [153]SC[158]O[150]R[129]ES[156] [154] [159]**[153]*":FORI=.TO19
76 A$=STR$(S(I)):A$=LEFT$("00000",6-LEN(A$))+RIGHT$(A$,LEN(A$)-1):J=I+10*(I>9)
78 PRINTTAB(10)MID$(C$,J+1,1)N$(I)TAB(25)A$:NEXT
80 PRINTTAB(12)"[150]PRESS ANY KEY...":POKE198,.
82 GETA$:IFA$>""THEN4
84 SYSD:FORI=1TO25:NEXT:GOTO82
86 PRINT"[147][150]QUIT? [159]ARE YOU SURE?":POKE198,.
88 GETA$:IFA$="N"THEN4
90 IFA$<>"Y"THEN88
92 PRINT" SAVE HIGH SCORES? (READY DISK DRIVE     [153]BEFORE SAYING YES!)"
94 POKE198,.
96 GETA$:IFA$="N"THEN108
98 IFA$<>"Y"THEN96
100 OPEN15,8,15:PRINT#15,"S0:PBN.HIGH":INPUT#15,J:IFJ>1ANDJ<>62THEN106
102 OPEN2,8,2,"0:PBN.HIGH,S,W":INPUT#15,J:IFJ>.THEN106
104 FORI=.TO19:PRINT#2,N$(I):PRINT#2,S(I):NEXT
106 CLOSE2:CLOSE15
108 POKE56576,199:POKE53272,21:POKE648,4:PRINT"[154][147]";:POKE53280,14:POKE53281,6
110 POKE52,160:POKE56,160:CLR:GOTO142
112 DIMS(19),N$(19):M=35825:G=M+3:L=M+6:C=M+9:D=M+12:SC=M+15:SP=M+17
114 I=.:J=.:S=.:A$="":C$="[158][150][129][156][154][159][153]":GOSUB126:POKE54296,.:POKE54286,255
116 POKE54287,255:POKE54290,128
118 REMPOKE147,.:SYS57812"PBN.GRFX",8,1:SYS62631:POKE147,.:SYS57812"PBN.LVLS",8,1
120 SYS62631:OPEN15,8,15:OPEN2,8,2,"0:PBN.HIGH,S,R":INPUT#15,J
122 IFJ=.THENFORI=.TO19:INPUT#2,N$(I):INPUT#2,S(I):NEXT
124 CLOSE2:CLOSE15:POKE56576,197:POKE648,128:POKE53272,8:RETURN
126 PRINTCHR$(14)"[147]  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
128 FORI=1TO7:PRINT"  [152]                                    ":NEXT
130 PRINT"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
132 PRINTTAB(12)"[152][208][193][201][206][212][160][194][217] [206][213][205][194][197][210]":PRINTTAB(13)"[194]Y [202]ON [205]ATTSON"
134 PRINTTAB(7)"[208]UBLISHED ON  [204][207][193][196][211][212][193][210] #73"
136 PRINTTAB(6)"[211]UBSCRIPTIONS 1-800-831-2694"
138 PRINTTAB(6)"[195]OPYRIGHT 1990 [211]OFTDISK [201]NC."
140 PRINTTAB(15)"[154][204]OADING...":POKE53280,.:POKE53281,.:RETURN
142 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15
144 IFER<>63THENEND
146 PRINT"[147]RETURNING TO LOADSTAR...":PRINT"LOAD"CHR$(34);
148 PRINT"HELLO CONNECT"CHR$(34)",8":PRINT"RUN[145][145][145][145][145][145][145][145]":POKE631,13
150 POKE632,13:POKE633,13:POKE198,3:NEW